home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 11 / Cream of the Crop 11-2.iso / extra_2 / nadir11.zip / UTE.N < prev    next >
Text File  |  1995-11-08  |  447b  |  19 lines
  1. Define NextField(table, type, code, field)
  2. {
  3.     Explode(next([table]^[type]^[code]^[field]), 
  4.             "^", &nextType, &nextCode, &result);
  5.     if (nextCode == code && nextType == type)
  6.         return result;
  7.     else
  8.         return "";
  9. }
  10. Define PreProcessOn     /* turns on pre processing, ie ignores Define */
  11. {
  12.     PreProcessSet("dei");
  13. }
  14. Define PreProcessOff    /* turns off pre processing */
  15. {
  16.     PreProcessSet("");
  17. }
  18.  
  19.